home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / Files.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  49.6 KB  |  1,519 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Monday, January 14, 1991 at 4:56 PM
  4. ;     Files.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1985-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15.  
  16. ; 04/28/93 mwp Release
  17. ; 06/02/92 bill ioTaginfo -> unsigned
  18. ; 06/01/92 bill ioVFrBlk -> unsigned (Duncan Smith)
  19. ; 05/14/92 bill Fix Moon's bug with numVersion record.
  20. ; 2/18/92 bill  Engber's fixes to _getfsqhdr, _getdrvqhdr, _getvcbqhdr
  21. ; ------------- 2.0f2
  22. ; 10/31/91 bill All hail the return of _getfsqhdr, _getdrvqhdr, & _getvcbqhdr
  23. ; 08/23/91 bill Typos in _AddDrive & _FSClose
  24. ;
  25.  
  26. ; $IFC UNDEFINED UsingIncludes
  27. ; $SETC UsingIncludes := 0
  28. ; $ENDC
  29.  
  30. ; $IFC NOT UsingIncludes
  31.  
  32. ; $ENDC
  33.  
  34. ; $IFC UNDEFINED UsingFiles
  35. ; $SETC UsingFiles := 1
  36.  
  37. ; $I+
  38. ; $SETC FilesIncludes := UsingIncludes
  39. ; $SETC UsingIncludes := 1
  40. ; $IFC UNDEFINED UsingTypes
  41.  
  42. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  43. ; $ENDC
  44. ; $IFC UNDEFINED UsingOSUtils
  45.  
  46. (require-interface 'OSUTILS)    ; $I $$Shell(PInterfaces)OSUtils.p
  47. ; $ENDC
  48. ; $IFC UNDEFINED UsingSegLoad
  49.  
  50. (require-interface 'SEGLOAD)    ; $I $$Shell(PInterfaces)SegLoad.p
  51. ; $ENDC
  52. ; $SETC UsingIncludes := FilesIncludes
  53.  
  54. ;  Finder Constants 
  55. (defconstant $fsAtMark 0)
  56. (defconstant $fOnDesk 1)
  57. (defconstant $fsCurPerm 0)
  58. (defconstant $fHasBundle 8192)
  59. (defconstant $fsRdPerm 1)
  60. (defconstant $fInvisible 16384)
  61. (defconstant $fTrash -3)
  62. (defconstant $fsWrPerm 2)
  63. (defconstant $fDesktop -2)
  64. (defconstant $fsRdWrPerm 3)
  65. (defconstant $fDisk 0)
  66. (defconstant $fsRdWrShPerm 4)
  67. (defconstant $fsFromStart 1)
  68. (defconstant $fsFromLEOF 2)
  69. (defconstant $fsFromMark 3)
  70. (defconstant $rdVerify 64)
  71. (defconstant $ioDirFlg 3)       ;  see IM IV-125 
  72. (defconstant $ioDirMask #x10)
  73. (defconstant $fsRtParID 1)
  74. (defconstant $fsRtDirID 2)
  75.  
  76. ;  masks for SpecBits values 
  77. (defconstant $fsSBPartialName 1)
  78. (defconstant $fsSBFullName 2)
  79. (defconstant $fsSBFlAttrib 4)
  80. (defconstant $fsSBFlFndrInfo 8)
  81. (defconstant $fsSBFlLgLen 32)
  82. (defconstant $fsSBFlPyLen 64)
  83. (defconstant $fsSBFlRLgLen 128)
  84. (defconstant $fsSBFlRPyLen 256)
  85. (defconstant $fsSBFlCrDat 512)
  86. (defconstant $fsSBFlMdDat 1024)
  87. (defconstant $fsSBFlBkDat 2048)
  88. (defconstant $fsSBFlXFndrInfo 4096)
  89. (defconstant $fsSBFlParID 8192)
  90. (defconstant $fsSBNegate 16384)
  91. (defconstant $fsSBDrUsrWds 8)
  92. (defconstant $fsSBDrNmFls 16)
  93. (defconstant $fsSBDrCrDat 512)
  94. (defconstant $fsSBDrMdDat 1024)
  95. (defconstant $fsSBDrBkDat 2048)
  96. (defconstant $fsSBDrFndrInfo 4096)
  97. (defconstant $fsSBDrParID 8192)
  98.  
  99. ;  vMAttrib (GetVolParms) bit position constants 
  100. (defconstant $bLimitFCBs 31)
  101. (defconstant $bLocalWList 30)
  102. (defconstant $bNoMiniFndr 29)
  103. (defconstant $bNoVNEdit 28)
  104. (defconstant $bNoLclSync 27)
  105. (defconstant $bTrshOffLine 26)
  106. (defconstant $bNoSwitchTo 25)
  107. (defconstant $bNoDeskItems 20)
  108. (defconstant $bNoBootBlks 19)
  109. (defconstant $bAccessCntl 18)
  110. (defconstant $bNoSysDir 17)
  111. (defconstant $bHasExtFSVol 16)
  112. (defconstant $bHasOpenDeny 15)
  113. (defconstant $bHasCopyFile 14)
  114. (defconstant $bHasMoveRename 13)
  115. (defconstant $bHasDesktopMgr 12)
  116. (defconstant $bHasShortName 11)
  117. (defconstant $bHasFolderLock 10)
  118. (defconstant $bHasPersonalAccessPrivileges 9)
  119. (defconstant $bHasUserGroupList 8)
  120. (defconstant $bHasCatSearch 7)
  121. (defconstant $bHasFileIDs 6)
  122. (defconstant $bHasBTreeMgr 5)
  123. (defconstant $bHasBlankAccessPrivileges 4)
  124.  
  125. ;  Desktop Database icon Constants 
  126. (defconstant $kLargeIcon 1)
  127. (defconstant $kLarge4BitIcon 2)
  128. (defconstant $kLarge8BitIcon 3)
  129. (defconstant $kSmallIcon 4)
  130. (defconstant $kSmall4BitIcon 5)
  131. (defconstant $kSmall8BitIcon 6)
  132.  
  133. (defconstant $kLargeIconSize 256)
  134. (defconstant $kLarge4BitIconSize 512)
  135. (defconstant $kLarge8BitIconSize 1024)
  136. (defconstant $kSmallIconSize 64)
  137. (defconstant $kSmall4BitIconSize 128)
  138. (defconstant $kSmall8BitIconSize 256)
  139.  
  140. ;  foreign privilege model identifiers 
  141. (defconstant $fsUnixPriv 1)
  142.  
  143. ;  Version Release Stage Codes 
  144. (defconstant $developStage #x20)
  145. (defconstant $alphaStage #x40)
  146. (defconstant $betaStage #x60)
  147. (defconstant $finalStage #x80)
  148.  
  149. ;  Authentication Constants 
  150. (defconstant $kNoUserAuthentication 1)
  151. (defconstant $kPassword 2)
  152. (defconstant $kEncryptPassword 3)
  153. (defconstant $kTwoWayEncryptPassword 6)
  154.  
  155. (def-mactype :cinfotype (find-mactype :unsigned-byte))
  156. (defconstant $hFileInfo 0)
  157. (defconstant $dirInfo 1)
  158.  
  159. (defrecord FXInfo 
  160.    (fdIconID :signed-integer)   ;  Icon ID
  161.    (fdUnused (:array :signed-integer 3)); unused but reserved 6 bytes
  162.    (fdScript :signed-byte)      ;  Script flag and number 
  163.    (fdXFlags :signed-byte)
  164.    (fdComment :signed-integer)  ;  Comment ID
  165.    (fdPutAway :signed-long)     ;  Home Dir ID
  166.    )
  167.  
  168. (defrecord DInfo 
  169.    (frRect :rect)               ; folder rect
  170.    (frFlags :signed-integer)    ; Flags
  171.    (frLocation :point)          ; folder location
  172.    (frView :signed-integer)     ; folder view
  173.    )
  174.  
  175. (defrecord DXInfo 
  176.    (frScroll :point)            ; scroll position
  177.    (frOpenChain :signed-long)   ; DirID chain of open folders
  178.    (frScript :signed-byte)      ;  Script flag and number 
  179.    (frXFlags :signed-byte)
  180.    (frComment :signed-integer)  ; comment
  181.    (frPutAway :signed-long)     ; DirID
  182.    )
  183.  
  184. (defrecord GetVolParmsInfoBuffer 
  185.    (vMVersion :signed-integer)  ; version number
  186.    (vMAttrib :signed-long)      ; bit vector of attributes (see vMAttrib constants)
  187.    (vMLocalHand :handle)        ; handle to private data
  188.    (vMServerAdr :signed-long)   ; AppleTalk server address or zero
  189.    (vMVolumeGrade :signed-long) ; approx. speed rating or zero if unrated
  190.    (vMForeignPrivID :signed-integer); foreign privilege model supported or zero if none
  191.    )
  192.  
  193. (def-mactype :cinfopbptr (find-mactype :pointer))
  194. (defrecord CInfoPBRec 
  195.    (qLink (:pointer :qelem))
  196.    (qType :signed-integer)
  197.    (ioTrap :signed-integer)
  198.    (ioCmdAddr :pointer)
  199.    (ioCompletion :pointer)
  200.    (ioResult :signed-integer)
  201.    (ioNamePtr (:pointer (:string 255)))
  202.    (ioVRefNum :signed-integer)
  203.    (ioFRefNum :signed-integer)
  204.    (ioFVersNum :signed-byte)
  205.    (filler1 :signed-byte)
  206.    (ioFDirIndex :signed-integer)
  207.    (ioFlAttrib :signed-byte)
  208.    (filler2 :signed-byte)
  209.    (:variant 
  210.  
  211.       ((ioFlFndrInfo :finfo)
  212.       (ioDirID :signed-long)
  213.       (ioFlStBlk :signed-integer)
  214.       (ioFlLgLen :signed-long)
  215.       (ioFlPyLen :signed-long)
  216.       (ioFlRStBlk :signed-integer)
  217.       (ioFlRLgLen :signed-long)
  218.       (ioFlRPyLen :signed-long)
  219.       (ioFlCrDat :signed-long)
  220.       (ioFlMdDat :signed-long)
  221.       (ioFlBkDat :signed-long)
  222.       (ioFlXFndrInfo :fxinfo)
  223.       (ioFlParID :signed-long)
  224.       (ioFlClpSiz :signed-long))
  225.  
  226.       ((ioDrUsrWds :dinfo)
  227.       (ioDrDirID :signed-long)
  228.       (ioDrNmFls :signed-integer)
  229.       (filler3 (:array :signed-integer 9))
  230.       (ioDrCrDat :signed-long)
  231.       (ioDrMdDat :signed-long)
  232.       (ioDrBkDat :signed-long)
  233.       (ioDrFndrInfo :dxinfo)
  234.       (ioDrParID :signed-long))
  235.       ))
  236.  
  237. (defrecord CatPositionRec 
  238.    (initialize :signed-long)
  239.    (priv (:array :signed-integer 6))
  240.    )
  241.  
  242. (def-mactype :fsspecptr (find-mactype :pointer))
  243. (def-mactype :fsspechandle (find-mactype :handle))
  244. (defrecord (FSSpec :handle) 
  245.    (vRefNum :signed-integer)
  246.    (parID :signed-long)
  247.    (name (:string 63))
  248.    )
  249.  
  250. (def-mactype :fsspecarrayptr (find-mactype :pointer))
  251. (def-mactype :fsspecarrayhandle (find-mactype :handle))
  252.  
  253. (DEFRECORD (FSSPECARRAY :HANDLE) (ARRAY (ARRAY :FSSPEC 1)))
  254.  
  255. ;     The following are structures to be filled out with the _GetVolMountInfo call
  256. ;     and passed back into the _VolumeMount call for external file system mounts.
  257.  
  258. (def-mactype :volumetype (find-mactype :ostype))
  259.  
  260. (defconstant $AppleShareMediaType :|afpm|);  the signature for AppleShare 
  261.  
  262. (def-mactype :volmountinfoptr (find-mactype :pointer))
  263. (defrecord VolMountInfoHeader 
  264.    (length :signed-integer)     ;  length of location data (including self) 
  265.    (media :ostype)              ;  type of media. Variable length data follows 
  266.    )
  267.  
  268. (def-mactype :afpvolmountinfoptr (find-mactype :pointer))
  269. (defrecord AFPVolMountInfo 
  270.    (length :signed-integer)     ;  length of location data (including self) 
  271.    (media :ostype)              ;  type of media 
  272.    (flags :signed-integer)      ;  bits for no messages, no reconnect 
  273.    (nbpInterval :signed-byte)   ;  NBP Interval parameter (IM2, p.322) 
  274.    (nbpCount :signed-byte)      ;  NBP Interval parameter (IM2, p.322) 
  275.    (uamType :signed-integer)    ;  User Authentication Method 
  276.    (zoneNameOffset :signed-integer);  short positive offset from start of struct to Zone Name 
  277.    (serverNameOffset :signed-integer);  offset to pascal Server Name string 
  278.    (volNameOffset :signed-integer);  offset to pascal Volume Name string 
  279.    (userNameOffset :signed-integer);  offset to pascal User Name string 
  280.    (userPasswordOffset :signed-integer);  offset to pascal User Password string 
  281.    (volPasswordOffset :signed-integer);  offset to pascal Volume Password string 
  282.    (AFPData (:array :character 144));  variable length data may follow 
  283.    )
  284.  
  285. (def-mactype :dtpbptr (find-mactype :pointer))
  286. (defrecord DTPBRec 
  287.    (qLink (:pointer :qelem))
  288.    (qType :signed-integer)
  289.    (ioTrap :signed-integer)
  290.    (ioCmdAddr :pointer)
  291.    (ioCompletion :pointer)
  292.    (ioResult :signed-integer)
  293.    (ioNamePtr (:pointer (:string 255)))
  294.    (ioVRefNum :signed-integer)
  295.    (ioDTRefNum :signed-integer)
  296.    (ioIndex :signed-integer)
  297.    (ioTagInfo :unsigned-long)
  298.    (ioDTBuffer :pointer)
  299.    (ioDTReqCount :signed-long)
  300.    (ioDTActCount :signed-long)
  301.    (filler1 :signed-byte)
  302.    (ioIconType :signed-byte)
  303.    (filler2 :signed-integer)
  304.    (ioDirID :signed-long)
  305.    (ioFileCreator :ostype)
  306.    (ioFileType :ostype)
  307.    (ioFiller3 :signed-long)
  308.    (ioDTLgLen :signed-long)
  309.    (ioDTPyLen :signed-long)
  310.    (ioFiller4 (:array :signed-integer 14))
  311.    (ioAPPLParID :signed-long)
  312.    )
  313.  
  314. (def-mactype :hparmblkptr (find-mactype :pointer))
  315. (defrecord HParamBlockRec 
  316.    (qLink (:pointer :qelem))
  317.    (qType :signed-integer)
  318.    (ioTrap :signed-integer)
  319.    (ioCmdAddr :pointer)
  320.    (ioCompletion :pointer)
  321.    (ioResult :signed-integer)
  322.    (ioNamePtr (:pointer (:string 255)))
  323.    (ioVRefNum :signed-integer)
  324.    (:variant 
  325.  
  326.       ((ioRefNum :signed-integer)
  327.       (ioVersNum :signed-byte)
  328.       (ioPermssn :signed-byte)
  329.       (ioMisc :pointer)
  330.       (ioBuffer :pointer)
  331.       (ioReqCount :signed-long) ; size of buffer area
  332.       (ioActCount :signed-long) ; length of vol parms data
  333.       (ioPosMode :signed-integer)
  334.       (ioPosOffset :signed-long))
  335.  
  336.       ((ioFRefNum :signed-integer)
  337.       (ioFVersNum :signed-byte)
  338.       (filler1 :signed-byte)
  339.       (ioFDirIndex :signed-integer)
  340.       (ioFlAttrib :signed-byte)
  341.       (ioFlVersNum :signed-byte)
  342.       (ioFlFndrInfo :finfo)
  343.       (ioDirID :signed-long)
  344.       (ioFlStBlk :signed-integer)
  345.       (ioFlLgLen :signed-long)
  346.       (ioFlPyLen :signed-long)
  347.       (ioFlRStBlk :signed-integer)
  348.       (ioFlRLgLen :signed-long)
  349.       (ioFlRPyLen :signed-long)
  350.       (ioFlCrDat :signed-long)
  351.       (ioFlMdDat :signed-long))
  352.  
  353.       ((filler2 :signed-long)
  354.       (ioVolIndex :signed-integer)
  355.       (ioVCrDate :signed-long)
  356.       (ioVLsMod :signed-long)
  357.       (ioVAtrb :signed-integer)
  358.       (ioVNmFls :signed-integer)
  359.       (ioVBitMap :signed-integer)
  360.       (ioAllocPtr :signed-integer)
  361.       (ioVNmAlBlks :signed-integer)
  362.       (ioVAlBlkSiz :signed-long)
  363.       (ioVClpSiz :signed-long)
  364.       (ioAlBlSt :signed-integer)
  365.       (ioVNxtCNID :signed-long)
  366.       (ioVFrBlk :unsigned-integer)
  367.       (ioVSigWord :signed-integer)
  368.       (ioVDrvInfo :signed-integer)
  369.       (ioVDRefNum :signed-integer)
  370.       (ioVFSID :signed-integer)
  371.       (ioVBkUp :signed-long)
  372.       (ioVSeqNum :signed-integer)
  373.       (ioVWrCnt :signed-long)
  374.       (ioVFilCnt :signed-long)
  375.       (ioVDirCnt :signed-long)
  376.       (ioVFndrInfo (:array :signed-long 8)))
  377.  
  378.       ((filler3 :signed-integer)
  379.       (ioDenyModes :signed-integer); access rights data
  380.       (filler4 :signed-integer)
  381.       (filler5 :signed-byte)
  382.       (ioACUser :signed-byte)   ; access rights for directory only
  383.       (filler6 :signed-long)
  384.       (ioACOwnerID :signed-long); owner ID
  385.       (ioACGroupID :signed-long); group ID
  386.       (ioACAccess :signed-long)); access rights
  387.  
  388.       ((filler7 :signed-integer)
  389.       (ioObjType :signed-integer); function code
  390.       (ioObjNamePtr :pointer)   ; ptr to returned creator/group name
  391.       (ioObjID :signed-long))   ; creator/group ID
  392.  
  393.       ((ioDstVRefNum :signed-integer); destination vol identifier
  394.       (filler8 :signed-integer)
  395.       (ioNewName :pointer)      ; ptr to destination pathname
  396.       (ioCopyName :pointer)     ; ptr to optional name
  397.       (ioNewDirID :signed-long)); destination directory ID
  398.  
  399.       ((filler9 :signed-integer)
  400.       (ioWDIndex :signed-integer)
  401.       (ioWDProcID :signed-long)
  402.       (ioWDVRefNum :signed-integer)
  403.       (filler10 :signed-integer)
  404.       (filler11 :signed-long)
  405.       (filler12 :signed-long)
  406.       (filler13 :signed-long)
  407.       (ioWDDirID :signed-long))
  408.  
  409.       ((filler14 :signed-long)
  410.       (ioDestNamePtr (:pointer (:string 255)))
  411.       (filler15 :signed-long)
  412.       (ioDestDirID :signed-long)
  413.       (filler16 :signed-long)
  414.       (filler17 :signed-long)
  415.       (ioSrcDirID :signed-long)
  416.       (filler18 :signed-integer)
  417.       (ioFileID :signed-long))
  418.  
  419.       ((ioMatchPtr (:pointer :fsspecarray)); match array
  420.       (ioReqMatchCount :signed-long); maximum allowable matches
  421.       (ioActMatchCount :signed-long); actual match count
  422.       (ioSearchBits :signed-long); search criteria selector
  423.       (ioSearchInfo1 (:pointer :cinfopbrec)); search values and range lower bounds
  424.       (ioSearchInfo2 (:pointer :cinfopbrec)); search values and range upper bounds
  425.       (ioSearchTime :signed-long); length of time to run the search
  426.       (ioCatPosition :catpositionrec); current position in the catalog
  427.       (ioOptBuffer :pointer)    ; optional performance enhancement buffer
  428.       (ioOptBufSize :signed-long)); length of buffer pointed to by ioOptBuffer
  429.  
  430.       ((filler21 :signed-long)
  431.       (filler22 :signed-long)
  432.       (ioForeignPrivBuffer :pointer)
  433.       (ioForeignPrivReqCount :signed-long)
  434.       (ioForeignPrivActCount :signed-long)
  435.       (filler23 :signed-long)
  436.       (ioForeignPrivDirID :signed-long)
  437.       (ioForeignPrivInfo1 :signed-long)
  438.       (ioForeignPrivInfo2 :signed-long)
  439.       (ioForeignPrivInfo3 :signed-long)
  440.       (ioForeignPrivInfo4 :signed-long))
  441.       ))
  442.  
  443. (def-mactype :cmovepbptr (find-mactype :pointer))
  444. (defrecord CMovePBRec 
  445.    (qLink (:pointer :qelem))
  446.    (qType :signed-integer)
  447.    (ioTrap :signed-integer)
  448.    (ioCmdAddr :pointer)
  449.    (ioCompletion :pointer)
  450.    (ioResult :signed-integer)
  451.    (ioNamePtr (:pointer (:string 255)))
  452.    (ioVRefNum :signed-integer)
  453.    (filler1 :signed-long)
  454.    (ioNewName (:pointer (:string 255)))
  455.    (filler2 :signed-long)
  456.    (ioNewDirID :signed-long)
  457.    (filler3 (:array :signed-long 2))
  458.    (ioDirID :signed-long)
  459.    )
  460.  
  461. (def-mactype :wdpbptr (find-mactype :pointer))
  462. (defrecord WDPBRec 
  463.    (qLink (:pointer :qelem))
  464.    (qType :signed-integer)
  465.    (ioTrap :signed-integer)
  466.    (ioCmdAddr :pointer)
  467.    (ioCompletion :pointer)
  468.    (ioResult :signed-integer)
  469.    (ioNamePtr (:pointer (:string 255)))
  470.    (ioVRefNum :signed-integer)
  471.    (filler1 :signed-integer)
  472.    (ioWDIndex :signed-integer)
  473.    (ioWDProcID :signed-long)
  474.    (ioWDVRefNum :signed-integer)
  475.    (filler2 (:array :signed-integer 7))
  476.    (ioWDDirID :signed-long)
  477.    )
  478.  
  479. (def-mactype :fcbpbptr (find-mactype :pointer))
  480. (defrecord FCBPBRec 
  481.    (qLink (:pointer :qelem))
  482.    (qType :signed-integer)
  483.    (ioTrap :signed-integer)
  484.    (ioCmdAddr :pointer)
  485.    (ioCompletion :pointer)
  486.    (ioResult :signed-integer)
  487.    (ioNamePtr (:pointer (:string 255)))
  488.    (ioVRefNum :signed-integer)
  489.    (ioRefNum :signed-integer)
  490.    (filler :signed-integer)
  491.    (ioFCBIndx :signed-integer)
  492.    (filler1 :signed-integer)
  493.    (ioFCBFlNm :signed-long)
  494.    (ioFCBFlags :signed-integer)
  495.    (ioFCBStBlk :signed-integer)
  496.    (ioFCBEOF :signed-long)
  497.    (ioFCBPLen :signed-long)
  498.    (ioFCBCrPs :signed-long)
  499.    (ioFCBVRefNum :signed-integer)
  500.    (ioFCBClpSiz :signed-long)
  501.    (ioFCBParID :signed-long)
  502.    )
  503.  
  504. ; Numeric version part of 'vers' resource
  505. (defrecord NumVersion 
  506.    (:variant 
  507.  
  508.       ((majorRev :signed-byte)  ; 1st part of version number in BCD
  509.        (minorAndBugFixRev :unsigned-byte)       ; we don't support nibbles (yet).
  510. ;      (minorRev :unsigned-byte) ; 2nd part is 1 nibble in BCD
  511. ;      (bugFixRev :unsigned-byte); 3rd part is 1 nibble in BCD
  512.       (stage :signed-byte)      ; stage code: dev, alpha, beta, final
  513.       (nonRelRev :signed-byte)) ; revision level of non-released version
  514.  
  515.       ((version :signed-long))  ; to use all 4 fields at one time
  516.       ))
  517.  
  518. ; 'vers' resource format
  519. (def-mactype :versrecptr (find-mactype :pointer))
  520. (def-mactype :versrechndl (find-mactype :handle))
  521. (defrecord (VersRec :handle) 
  522.    (numericVersion :numversion) ; encoded version number
  523.    (countryCode :signed-integer); country code from intl utilities
  524.    (shortVersion (:string 255)) ; version number string - worst case
  525.    (reserved (:string 255))     ; longMessage string packed after shortVersion
  526.    )
  527.  
  528.  
  529. (deftrap _pbopen ((paramblock (:pointer :paramblockrec)))
  530.    (:d0 :signed-integer)
  531.    (:register-trap #xA000 :a0 paramblock))
  532.  
  533. (deftrap _open ((paramblock (:pointer :paramblockrec)))
  534.    (:d0 :signed-integer)
  535.    (:register-trap #xA000 :a0 paramblock))
  536.  
  537. (deftrap _pbclose ((paramblock (:pointer :paramblockrec)))
  538.    (:d0 :signed-integer)
  539.    (:register-trap #xA001 :a0 paramblock))
  540.  
  541. (deftrap _close ((paramblock (:pointer :paramblockrec)))
  542.    (:d0 :signed-integer)
  543.    (:register-trap #xA001 :a0 paramblock))
  544.  
  545. (deftrap _pbread ((paramblock (:pointer :paramblockrec)))
  546.    (:d0 :signed-integer)
  547.    (:register-trap #xA002 :a0 paramblock))
  548.  
  549. (deftrap _read ((paramblock (:pointer :paramblockrec)))
  550.    (:d0 :signed-integer)
  551.    (:register-trap #xA002 :a0 paramblock))
  552.  
  553. (deftrap _pbwrite ((paramblock (:pointer :paramblockrec)))
  554.    (:d0 :signed-integer)
  555.    (:register-trap #xA003 :a0 paramblock))
  556.  
  557. (deftrap _write ((paramblock (:pointer :paramblockrec)))
  558.    (:d0 :signed-integer)
  559.    (:register-trap #xA003 :a0 paramblock))
  560.  
  561. (deftrap _pbgetvinfo ((paramblock (:pointer :paramblockrec)))
  562.    (:d0 :signed-integer)
  563.    (:register-trap #xA007 :a0 paramblock))
  564.  
  565. (deftrap _getvinfo ((paramblock (:pointer :paramblockrec)))
  566.    (:d0 :signed-integer)
  567.    (:register-trap #xA007 :a0 paramblock))
  568.  
  569. (deftrap _pbgetvol ((paramblock (:pointer :paramblockrec)))
  570.    (:d0 :signed-integer)
  571.    (:register-trap #xA014 :a0 paramblock))
  572.  
  573. (deftrap _getvol ((paramblock (:pointer :paramblockrec)))
  574.    (:d0 :signed-integer)
  575.    (:register-trap #xA014 :a0 paramblock))
  576.  
  577. (deftrap _pbsetvol ((paramblock (:pointer :paramblockrec)))
  578.    (:d0 :signed-integer)
  579.    (:register-trap #xA015 :a0 paramblock))
  580.  
  581. (deftrap _setvol ((paramblock (:pointer :paramblockrec)))
  582.    (:d0 :signed-integer)
  583.    (:register-trap #xA015 :a0 paramblock))
  584.  
  585. (deftrap _pbflushvol ((paramblock (:pointer :paramblockrec)))
  586.    (:d0 :signed-integer)
  587.    (:register-trap #xA013 :a0 paramblock))
  588.  
  589. (deftrap _flushvol ((paramblock (:pointer :paramblockrec)))
  590.    (:d0 :signed-integer)
  591.    (:register-trap #xA013 :a0 paramblock))
  592.  
  593. (deftrap _pbcreate ((paramblock (:pointer :paramblockrec)))
  594.    (:d0 :signed-integer)
  595.    (:register-trap #xA008 :a0 paramblock))
  596.  
  597. (deftrap _create ((paramblock (:pointer :paramblockrec)))
  598.    (:d0 :signed-integer)
  599.    (:register-trap #xA008 :a0 paramblock))
  600.  
  601. (deftrap _pbdelete ((paramblock (:pointer :paramblockrec)))
  602.    (:d0 :signed-integer)
  603.    (:register-trap #xA009 :a0 paramblock))
  604.  
  605. (deftrap _delete ((paramblock (:pointer :paramblockrec)))
  606.    (:d0 :signed-integer)
  607.    (:register-trap #xA009 :a0 paramblock))
  608.  
  609. (deftrap _pbopendf ((paramblock (:pointer :paramblockrec)))
  610.    (:d0 :signed-integer)
  611.    (:register-trap #xA060 :a0 paramblock :d0 26))
  612.  
  613. (deftrap _opendf ((paramblock (:pointer :paramblockrec)))
  614.    (:d0 :signed-integer)
  615.    (:register-trap #xA060 :a0 paramblock :d0 26))
  616.  
  617. (deftrap _pbopenrf ((paramblock (:pointer :paramblockrec)))
  618.    (:d0 :signed-integer)
  619.    (:register-trap #xA00A :a0 paramblock))
  620.  
  621. (deftrap _openrf ((paramblock (:pointer :paramblockrec)))
  622.    (:d0 :signed-integer)
  623.    (:register-trap #xA00A :a0 paramblock))
  624.  
  625. (deftrap _pbrename ((paramblock (:pointer :paramblockrec)))
  626.    (:d0 :signed-integer)
  627.    (:register-trap #xA00B :a0 paramblock))
  628.  
  629. (deftrap _rename ((paramblock (:pointer :paramblockrec)))
  630.    (:d0 :signed-integer)
  631.    (:register-trap #xA00B :a0 paramblock))
  632.  
  633. (deftrap _pbgetfinfo ((paramblock (:pointer :paramblockrec)))
  634.    (:d0 :signed-integer)
  635.    (:register-trap #xA00C :a0 paramblock))
  636.  
  637. (deftrap _getfinfo ((paramblock (:pointer :paramblockrec)))
  638.    (:d0 :signed-integer)
  639.    (:register-trap #xA00C :a0 paramblock))
  640.  
  641. (deftrap _pbsetfinfo ((paramblock (:pointer :paramblockrec)))
  642.    (:d0 :signed-integer)
  643.    (:register-trap #xA00D :a0 paramblock))
  644.  
  645. (deftrap _setfinfo ((paramblock (:pointer :paramblockrec)))
  646.    (:d0 :signed-integer)
  647.    (:register-trap #xA00D :a0 paramblock))
  648.  
  649. (deftrap _pbsetflock ((paramblock (:pointer :paramblockrec)))
  650.    (:d0 :signed-integer)
  651.    (:register-trap #xA041 :a0 paramblock))
  652.  
  653. (deftrap _setflock ((paramblock (:pointer :paramblockrec)))
  654.    (:d0 :signed-integer)
  655.    (:register-trap #xA041 :a0 paramblock))
  656.  
  657. (deftrap _pbrstflock ((paramblock (:pointer :paramblockrec)))
  658.    (:d0 :signed-integer)
  659.    (:register-trap #xA042 :a0 paramblock))
  660.  
  661. (deftrap _rstflock ((paramblock (:pointer :paramblockrec)))
  662.    (:d0 :signed-integer)
  663.    (:register-trap #xA042 :a0 paramblock))
  664.  
  665. (deftrap _pbsetfvers ((paramblock (:pointer :paramblockrec)))
  666.    (:d0 :signed-integer)
  667.    (:register-trap #xA043 :a0 paramblock))
  668.  
  669. (deftrap _setfvers ((paramblock (:pointer :paramblockrec)))
  670.    (:d0 :signed-integer)
  671.    (:register-trap #xA043 :a0 paramblock))
  672.  
  673. (deftrap _pballocate ((paramblock (:pointer :paramblockrec)))
  674.    (:d0 :signed-integer)
  675.    (:register-trap #xA010 :a0 paramblock))
  676.  
  677. (deftrap _allocate ((paramblock (:pointer :paramblockrec)))
  678.    (:d0 :signed-integer)
  679.    (:register-trap #xA010 :a0 paramblock))
  680.  
  681. (deftrap _pbgeteof ((paramblock (:pointer :paramblockrec)))
  682.    (:d0 :signed-integer)
  683.    (:register-trap #xA011 :a0 paramblock))
  684.  
  685. (deftrap _geteof ((paramblock (:pointer :paramblockrec)))
  686.    (:d0 :signed-integer)
  687.    (:register-trap #xA011 :a0 paramblock))
  688.  
  689. (deftrap _pbseteof ((paramblock (:pointer :paramblockrec)))
  690.    (:d0 :signed-integer)
  691.    (:register-trap #xA012 :a0 paramblock))
  692.  
  693. (deftrap _seteof ((paramblock (:pointer :paramblockrec)))
  694.    (:d0 :signed-integer)
  695.    (:register-trap #xA012 :a0 paramblock))
  696.  
  697. (deftrap _pbgetfpos ((paramblock (:pointer :paramblockrec)))
  698.    (:d0 :signed-integer)
  699.    (:register-trap #xA018 :a0 paramblock))
  700.  
  701. (deftrap _getfpos ((paramblock (:pointer :paramblockrec)))
  702.    (:d0 :signed-integer)
  703.    (:register-trap #xA018 :a0 paramblock))
  704.  
  705. (deftrap _pbsetfpos ((paramblock (:pointer :paramblockrec)))
  706.    (:d0 :signed-integer)
  707.    (:register-trap #xA044 :a0 paramblock))
  708.  
  709. (deftrap _setfpos ((paramblock (:pointer :paramblockrec)))
  710.    (:d0 :signed-integer)
  711.    (:register-trap #xA044 :a0 paramblock))
  712.  
  713. (deftrap _pbflushfile ((paramblock (:pointer :paramblockrec)))
  714.    (:d0 :signed-integer)
  715.    (:register-trap #xA045 :a0 paramblock))
  716.  
  717. (deftrap _flushfile ((paramblock (:pointer :paramblockrec)))
  718.    (:d0 :signed-integer)
  719.    (:register-trap #xA045 :a0 paramblock))
  720.  
  721. (deftrap _pbmountvol ((paramblock (:pointer :paramblockrec)))
  722.    (:d0 :signed-integer)
  723.    (:register-trap #xA00F :a0 paramblock))
  724.  
  725. (deftrap _mountvol ((paramblock (:pointer :paramblockrec)))
  726.    (:d0 :signed-integer)
  727.    (:register-trap #xA00F :a0 paramblock))
  728.  
  729. (deftrap _pbunmountvol ((paramblock (:pointer :paramblockrec)))
  730.    (:d0 :signed-integer)
  731.    (:register-trap #xA00E :a0 paramblock))
  732.  
  733. (deftrap _unmountvol ((paramblock (:pointer :paramblockrec)))
  734.    (:d0 :signed-integer)
  735.    (:register-trap #xA00E :a0 paramblock))
  736.  
  737. (deftrap _pbeject ((paramblock (:pointer :paramblockrec)))
  738.    (:d0 :signed-integer)
  739.    (:register-trap #xA017 :a0 paramblock))
  740.  
  741. (deftrap _eject ((paramblock (:pointer :paramblockrec)))
  742.    (:d0 :signed-integer)
  743.    (:register-trap #xA017 :a0 paramblock))
  744.  
  745. (deftrap _pboffline ((paramblock (:pointer :paramblockrec)))
  746.    (:d0 :signed-integer)
  747.    (:register-trap #xA035 :a0 paramblock))
  748.  
  749. (deftrap _offline ((paramblock (:pointer :paramblockrec)))
  750.    (:d0 :signed-integer)
  751.    (:register-trap #xA035 :a0 paramblock))
  752.  
  753. (deftrap _pbcatsearch ((paramblock (:pointer :hparamblockrec)))
  754.    (:d0 :signed-integer)
  755.    (:register-trap #xA260 :a0 paramblock :d0 24))
  756.  
  757. (deftrap _catsearch ((paramblock (:pointer :hparamblockrec)))
  758.    (:d0 :signed-integer)
  759.    (:register-trap #xA260 :a0 paramblock :d0 24))
  760.  
  761. (deftrap _adddrive ((drvrrefnum :signed-integer) (drvnum :signed-integer) (qel (:pointer :drvqel)))
  762.    (:d0 :signed-integer)
  763.    (:register-trap #xA04E :d0 (logior (ash 16 drvnum) (logand #xffff drvrrefnum)) :a0 qel))
  764.  
  765.  
  766.  
  767.  
  768.  
  769. #| No 411 description
  770. (deftrap _openrf ((filename (:string 255)) (vrefnum :signed-integer) (refnum (:pointer :signed-integer)))
  771.    (nil :signed-integer)
  772.    (:register-trap #xA00A))
  773. |#
  774. #| Can't match 411 description 
  775.    Entry:nil 
  776.    Exit:nil
  777. (deftrap _rename ((oldname (:string 255)) (vrefnum :signed-integer) (newname (:string 255)))
  778.    (nil :signed-integer)
  779.    (:register-trap #xA00B :no-match oldname :no-match vrefnum :no-match newname))
  780. |#
  781. #| Not in ROM
  782. (deftrap _setfinfo ((filename (:string 255)) (vrefnum :signed-integer) (fndrinfo :finfo))
  783.    (:stack :signed-integer)
  784.    (:stack-trap #x0))
  785. |#
  786. #| Not in ROM
  787. (deftrap _setflock ((filename (:string 255)) (vrefnum :signed-integer))
  788.    (:stack :signed-integer)
  789.    (:stack-trap #x0))
  790. |#
  791. #| Not in ROM
  792. (deftrap _rstflock ((filename (:string 255)) (vrefnum :signed-integer))
  793.    (:stack :signed-integer)
  794.    (:stack-trap #x0))
  795. |#
  796. #| No 411 description
  797. (deftrap _allocate ((refnum :signed-integer) (count (:pointer :signed-long)))
  798.    (nil :signed-integer)
  799.    (:register-trap #xA010))
  800. |#
  801. #| Can't match 411 description 
  802.    Entry:nil 
  803.    Exit:nil
  804. (deftrap _geteof ((refnum :signed-integer) (logeof (:pointer :signed-long)))
  805.    (nil :signed-integer)
  806.    (:register-trap #xA011 :no-match refnum :no-match logeof))
  807. |#
  808. #| Can't match 411 description 
  809.    Entry:nil 
  810.    Exit:nil
  811. (deftrap _seteof ((refnum :signed-integer) (logeof :signed-long))
  812.    (nil :signed-integer)
  813.    (:register-trap #xA012 :no-match refnum :no-match logeof))
  814. |#
  815. #| Can't match 411 description 
  816.    Entry:nil 
  817.    Exit:nil
  818. (deftrap _getfpos ((refnum :signed-integer) (filepos (:pointer :signed-long)))
  819.    (nil :signed-integer)
  820.    (:register-trap #xA018 :no-match refnum :no-match filepos))
  821. |#
  822. #| Can't match 411 description 
  823.    Entry:nil 
  824.    Exit:nil
  825. (deftrap _setfpos ((refnum :signed-integer) (posmode :signed-integer) (posoff :signed-long))
  826.    (nil :signed-integer)
  827.    (:register-trap #xA044 :no-match refnum :no-match posmode :no-match posoff))
  828. |#
  829. #| Not in ROM
  830. (deftrap _getvrefnum ((filerefnum :signed-integer) (vrefnum (:pointer :signed-integer)))
  831.    (:stack :signed-integer)
  832.    (:stack-trap #x0))
  833. |#
  834.  
  835. (deftrap _pbopenwd ((paramblock (:pointer :wdpbrec)))
  836.    (:d0 :signed-integer)
  837.    (:register-trap #xA260 :a0 paramblock :d0 1))
  838.  
  839.  
  840. (deftrap _pbclosewd ((paramblock (:pointer :wdpbrec)))
  841.    (:d0 :signed-integer)
  842.    (:register-trap #xA260 :a0 paramblock :d0 2))
  843.  
  844. (deftrap _pbhsetvol ((paramblock (:pointer :wdpbrec)))
  845.    (:d0 :signed-integer)
  846.    (:register-trap #xA215 :a0 paramblock))
  847.  
  848. (deftrap _pbhgetvol ((paramblock (:pointer :wdpbrec)))
  849.    (:d0 :signed-integer)
  850.    (:register-trap #xA214 :a0 paramblock))
  851.  
  852. (deftrap _pbcatmove ((paramblock (:pointer :cmovepbrec)))
  853.    (:d0 :signed-integer)
  854.    (:register-trap #xA260 :a0 paramblock :d0 5))
  855.  
  856. (deftrap _pbdircreate ((paramblock (:pointer :hparamblockrec)))
  857.    (:d0 :signed-integer)
  858.    (:register-trap #xA260 :a0 paramblock :d0 6))
  859.  
  860. (deftrap _pbgetwdinfo ((paramblock (:pointer :wdpbrec)))
  861.    (:d0 :signed-integer)
  862.    (:register-trap #xA260 :a0 paramblock :d0 7))
  863.  
  864. (deftrap _pbgetfcbinfo ((paramblock (:pointer :fcbpbrec)))
  865.    (:d0 :signed-integer)
  866.    (:register-trap #xA260 :a0 paramblock :d0 8))
  867.  
  868. (deftrap _pbgetcatinfo ((paramblock (:pointer :cinfopbrec)))
  869.    (:d0 :signed-integer)
  870.    (:register-trap #xA260 :a0 paramblock :d0 9))
  871.  
  872. (deftrap _pbsetcatinfo ((paramblock (:pointer :cinfopbrec)))
  873.    (:d0 :signed-integer)
  874.    (:register-trap #xA260 :a0 paramblock :d0 10))
  875.  
  876. (deftrap _pballoccontig ((paramblock (:pointer :paramblockrec)))
  877.    (:d0 :signed-integer)
  878.    (:register-trap #xA210 :a0 paramblock))
  879.  
  880. (deftrap _pblockrange ((paramblock (:pointer :paramblockrec)))
  881.    (:d0 :signed-integer)
  882.    (:register-trap #xA260 :a0 paramblock :d0 16))
  883.  
  884. (deftrap _pbunlockrange ((paramblock (:pointer :paramblockrec)))
  885.    (:d0 :signed-integer)
  886.    (:register-trap #xA260 :a0 paramblock :d0 17))
  887.  
  888. (deftrap _pbsetvinfo ((paramblock (:pointer :hparamblockrec)))
  889.    (:d0 :signed-integer)
  890.    (:register-trap #xA260 :a0 paramblock :d0 11))
  891.  
  892. (deftrap _pbhgetvinfo ((paramblock (:pointer :hparamblockrec)))
  893.    (:d0 :signed-integer)
  894.    (:register-trap #xA207 :a0 paramblock))
  895.  
  896. (deftrap _pbhopen ((paramblock (:pointer :hparamblockrec)))
  897.    (:d0 :signed-integer)
  898.    (:register-trap #xA200 :a0 paramblock))
  899.  
  900. (deftrap _pbhopenrf ((paramblock (:pointer :hparamblockrec)))
  901.    (:d0 :signed-integer)
  902.    (:register-trap #xA20A :a0 paramblock))
  903.  
  904. (deftrap _pbhopendf ((paramblock (:pointer :hparamblockrec)))
  905.    (:d0 :signed-integer)
  906.    (:register-trap #xA260 :a0 paramblock :d0 26))
  907.  
  908. (deftrap _pbhcreate ((paramblock (:pointer :hparamblockrec)))
  909.    (:d0 :signed-integer)
  910.    (:register-trap #xA208 :a0 paramblock))
  911.  
  912. (deftrap _pbhdelete ((paramblock (:pointer :hparamblockrec)))
  913.    (:d0 :signed-integer)
  914.    (:register-trap #xA209 :a0 paramblock))
  915.  
  916. (deftrap _pbhrename ((paramblock (:pointer :hparamblockrec)))
  917.    (:d0 :signed-integer)
  918.    (:register-trap #xA20B :a0 paramblock))
  919.  
  920. (deftrap _pbhrstflock ((paramblock (:pointer :hparamblockrec)))
  921.    (:d0 :signed-integer)
  922.    (:register-trap #xA242 :a0 paramblock))
  923.  
  924. (deftrap _pbhsetflock ((paramblock (:pointer :hparamblockrec)))
  925.    (:d0 :signed-integer)
  926.    (:register-trap #xA241 :a0 paramblock))
  927.  
  928. (deftrap _pbhgetfinfo ((paramblock (:pointer :hparamblockrec)))
  929.    (:d0 :signed-integer)
  930.    (:register-trap #xA20C :a0 paramblock))
  931.  
  932. (deftrap _pbhsetfinfo ((paramblock (:pointer :hparamblockrec)))
  933.    (:d0 :signed-integer)
  934.    (:register-trap #xA20D :a0 paramblock))
  935.  
  936. (deftrap _pbmakefsspec ((paramblock (:pointer :hparamblockrec)))
  937.    (:d0 :signed-integer)
  938.    (:register-trap #xA260 :a0 paramblock :d0 27))
  939.  
  940. (deftrap _openwd ((paramblock (:pointer :wdpbrec)))
  941.    (:d0 :signed-integer)
  942.    (:register-trap #xA260 :a0 paramblock :d0 1))
  943.  
  944.  
  945. (deftrap _closewd ((paramblock (:pointer :wdpbrec)))
  946.    (:d0 :signed-integer)
  947.    (:register-trap #xA260 :a0 paramblock :d0 2))
  948.  
  949. (deftrap _hsetvol ((paramblock (:pointer :wdpbrec)))
  950.    (:d0 :signed-integer)
  951.    (:register-trap #xA215 :a0 paramblock))
  952.  
  953. (deftrap _hgetvol ((paramblock (:pointer :wdpbrec)))
  954.    (:d0 :signed-integer)
  955.    (:register-trap #xA214 :a0 paramblock))
  956.  
  957. (deftrap _catmove ((paramblock (:pointer :cmovepbrec)))
  958.    (:d0 :signed-integer)
  959.    (:register-trap #xA260 :a0 paramblock :d0 5))
  960.  
  961. (deftrap _dircreate ((paramblock (:pointer :hparamblockrec)))
  962.    (:d0 :signed-integer)
  963.    (:register-trap #xA260 :a0 paramblock :d0 6))
  964.  
  965. (deftrap _getwdinfo ((paramblock (:pointer :wdpbrec)))
  966.    (:d0 :signed-integer)
  967.    (:register-trap #xA260 :a0 paramblock :d0 7))
  968.  
  969. (deftrap _getfcbinfo ((paramblock (:pointer :fcbpbrec)))
  970.    (:d0 :signed-integer)
  971.    (:register-trap #xA260 :a0 paramblock :d0 8))
  972.  
  973. (deftrap _getcatinfo ((paramblock (:pointer :cinfopbrec)))
  974.    (:d0 :signed-integer)
  975.    (:register-trap #xA260 :a0 paramblock :d0 9))
  976.  
  977. (deftrap _setcatinfo ((paramblock (:pointer :cinfopbrec)))
  978.    (:d0 :signed-integer)
  979.    (:register-trap #xA260 :a0 paramblock :d0 10))
  980.  
  981. (deftrap _alloccontig ((paramblock (:pointer :paramblockrec)))
  982.    (:d0 :signed-integer)
  983.    (:register-trap #xA210 :a0 paramblock))
  984.  
  985. (deftrap _lockrange ((paramblock (:pointer :paramblockrec)))
  986.    (:d0 :signed-integer)
  987.    (:register-trap #xA260 :a0 paramblock :d0 16))
  988.  
  989. (deftrap _unlockrange ((paramblock (:pointer :paramblockrec)))
  990.    (:d0 :signed-integer)
  991.    (:register-trap #xA260 :a0 paramblock :d0 17))
  992.  
  993. (deftrap _setvinfo ((paramblock (:pointer :hparamblockrec)))
  994.    (:d0 :signed-integer)
  995.    (:register-trap #xA260 :a0 paramblock :d0 11))
  996.  
  997. (deftrap _hgetvinfo ((paramblock (:pointer :hparamblockrec)))
  998.    (:d0 :signed-integer)
  999.    (:register-trap #xA207 :a0 paramblock))
  1000.  
  1001. (deftrap _hopen ((paramblock (:pointer :hparamblockrec)))
  1002.    (:d0 :signed-integer)
  1003.    (:register-trap #xA200 :a0 paramblock))
  1004.  
  1005. (deftrap _hopenrf ((paramblock (:pointer :hparamblockrec)))
  1006.    (:d0 :signed-integer)
  1007.    (:register-trap #xA20A :a0 paramblock))
  1008.  
  1009. (deftrap _hopendf ((paramblock (:pointer :hparamblockrec)))
  1010.    (:d0 :signed-integer)
  1011.    (:register-trap #xA260 :a0 paramblock :d0 26))
  1012.  
  1013. (deftrap _hcreate ((paramblock (:pointer :hparamblockrec)))
  1014.    (:d0 :signed-integer)
  1015.    (:register-trap #xA208 :a0 paramblock))
  1016.  
  1017. (deftrap _hdelete ((paramblock (:pointer :hparamblockrec)))
  1018.    (:d0 :signed-integer)
  1019.    (:register-trap #xA209 :a0 paramblock))
  1020.  
  1021. (deftrap _hrename ((paramblock (:pointer :hparamblockrec)))
  1022.    (:d0 :signed-integer)
  1023.    (:register-trap #xA20B :a0 paramblock))
  1024.  
  1025. (deftrap _hrstflock ((paramblock (:pointer :hparamblockrec)))
  1026.    (:d0 :signed-integer)
  1027.    (:register-trap #xA242 :a0 paramblock))
  1028.  
  1029. (deftrap _hsetflock ((paramblock (:pointer :hparamblockrec)))
  1030.    (:d0 :signed-integer)
  1031.    (:register-trap #xA241 :a0 paramblock))
  1032.  
  1033. (deftrap _hgetfinfo ((paramblock (:pointer :hparamblockrec)))
  1034.    (:d0 :signed-integer)
  1035.    (:register-trap #xA20C :a0 paramblock))
  1036.  
  1037. (deftrap _hsetfinfo ((paramblock (:pointer :hparamblockrec)))
  1038.    (:d0 :signed-integer)
  1039.    (:register-trap #xA20D :a0 paramblock))
  1040.  
  1041. (deftrap _makefsspec ((paramblock (:pointer :hparamblockrec)))
  1042.    (:d0 :signed-integer)
  1043.    (:register-trap #xA260 :a0 paramblock :d0 27))
  1044.  
  1045. (deftrap _finitqueue nil
  1046.    nil
  1047.    (:stack-trap #xA016))
  1048.  
  1049. (deftrap _getfsqhdr nil
  1050.    (:no-trap (:pointer :qhdr))
  1051.    (:no-trap (%get-ptr (%int-to-ptr #x0360))))
  1052.  
  1053. (deftrap _getdrvqhdr nil
  1054.    (:no-trap (:pointer :qhdr))
  1055.    (:no-trap (%get-ptr (%int-to-ptr #x0308))))
  1056.  
  1057. (deftrap _getvcbqhdr nil
  1058.    (:no-trap (:pointer :qhdr))
  1059.    (:no-trap (%get-ptr (%int-to-ptr #x0356))))
  1060.  
  1061.  
  1062. #| No 411 description
  1063. (deftrap _hgetvol ((volname (:pointer (:string 255))) (vrefnum (:pointer :signed-integer)) (dirid (:pointer :signed-long)))
  1064.    (nil :signed-integer)
  1065.    (:register-trap #xA214))
  1066. |#
  1067. #| No 411 description
  1068. (deftrap _hsetvol ((volname (:pointer (:string 255))) (vrefnum :signed-integer) (dirid :signed-long))
  1069.    (nil :signed-integer)
  1070.    (:register-trap #xA215))
  1071. |#
  1072. #| No 411 description
  1073. (deftrap _hopen ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (permission :signed-byte) (refnum (:pointer :signed-integer)))
  1074.    (nil :signed-integer)
  1075.    (:register-trap #xA200))
  1076. |#
  1077. #| Not in ROM
  1078. (deftrap _hopendf ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (permission :signed-byte) (refnum (:pointer :signed-integer)))
  1079.    (:stack :signed-integer)
  1080.    (:stack-trap #x0))
  1081. |#
  1082. #| No 411 description
  1083. (deftrap _hopenrf ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (permission :signed-byte) (refnum (:pointer :signed-integer)))
  1084.    (nil :signed-integer)
  1085.    (:register-trap #xA20A))
  1086. |#
  1087. #| Can't match 411 description 
  1088.    Entry:nil 
  1089.    Exit:nil
  1090. (deftrap _alloccontig ((refnum :signed-integer) (count (:pointer :signed-long)))
  1091.    (nil :signed-integer)
  1092.    (:register-trap #xA210 :no-match refnum :no-match count))
  1093. |#
  1094. #| No 411 description
  1095. (deftrap _hcreate ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (creator :ostype) (filetype :ostype))
  1096.    (nil :signed-integer)
  1097.    (:register-trap #xA208))
  1098. |#
  1099. #| Not in ROM
  1100. (deftrap _dircreate ((vrefnum :signed-integer) (parentdirid :signed-long) (directoryname (:string 255)) (createddirid (:pointer :signed-long)))
  1101.    (:stack :signed-integer)
  1102.    (:stack-trap #x0))
  1103. |#
  1104. #| No 411 description
  1105. (deftrap _hdelete ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)))
  1106.    (nil :signed-integer)
  1107.    (:register-trap #xA209))
  1108. |#
  1109. #| Not in ROM
  1110. (deftrap _hgetfinfo ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (fndrinfo (:pointer :finfo)))
  1111.    (:stack :signed-integer)
  1112.    (:stack-trap #x0))
  1113. |#
  1114. #| Not in ROM
  1115. (deftrap _hsetfinfo ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (fndrinfo :finfo))
  1116.    (:stack :signed-integer)
  1117.    (:stack-trap #x0))
  1118. |#
  1119. #| No 411 description
  1120. (deftrap _hsetflock ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)))
  1121.    (nil :signed-integer)
  1122.    (:register-trap #xA241))
  1123. |#
  1124. #| No 411 description
  1125. (deftrap _hrstflock ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)))
  1126.    (nil :signed-integer)
  1127.    (:register-trap #xA242))
  1128. |#
  1129. #| No 411 description
  1130. (deftrap _hrename ((vrefnum :signed-integer) (dirid :signed-long) (oldname (:string 255)) (newname (:string 255)))
  1131.    (nil :signed-integer)
  1132.    (:register-trap #xA20B))
  1133. |#
  1134. #| Not in ROM
  1135. (deftrap _catmove ((vrefnum :signed-integer) (dirid :signed-long) (oldname (:string 255)) (newdirid :signed-long) (newname (:string 255)))
  1136.    (:stack :signed-integer)
  1137.    (:stack-trap #x0))
  1138. |#
  1139. #| Not in ROM
  1140. (deftrap _openwd ((vrefnum :signed-integer) (dirid :signed-long) (procid :signed-long) (wdrefnum (:pointer :signed-integer)))
  1141.    (:stack :signed-integer)
  1142.    (:stack-trap #x0))
  1143. |#
  1144. #| Not in ROM
  1145. (deftrap _closewd ((wdrefnum :signed-integer))
  1146.    (:stack :signed-integer)
  1147.    (:stack-trap #x0))
  1148. |#
  1149. #| Not in ROM
  1150. (deftrap _getwdinfo ((wdrefnum :signed-integer) (vrefnum (:pointer :signed-integer)) (dirid (:pointer :signed-long)) (procid (:pointer :signed-long)))
  1151.    (:stack :signed-integer)
  1152.    (:stack-trap #x0))
  1153. |#
  1154.  
  1155. (deftrap _pbhgetvolparms ((paramblock (:pointer :hparamblockrec)))
  1156.    (:d0 :signed-integer)
  1157.    (:register-trap #xA260 :a0 paramblock :d0 48))
  1158.  
  1159. (deftrap _pbhgetlogininfo ((paramblock (:pointer :hparamblockrec)))
  1160.    (:d0 :signed-integer)
  1161.    (:register-trap #xA260 :a0 paramblock :d0 49))
  1162.  
  1163. (deftrap _pbhgetdiraccess ((paramblock (:pointer :hparamblockrec)))
  1164.    (:d0 :signed-integer)
  1165.    (:register-trap #xA260 :a0 paramblock :d0 50))
  1166.  
  1167. (deftrap _pbhsetdiraccess ((paramblock (:pointer :hparamblockrec)))
  1168.    (:d0 :signed-integer)
  1169.    (:register-trap #xA260 :a0 paramblock :d0 51))
  1170.  
  1171. (deftrap _pbhmapid ((paramblock (:pointer :hparamblockrec)))
  1172.    (:d0 :signed-integer)
  1173.    (:register-trap #xA260 :a0 paramblock :d0 52))
  1174.  
  1175. (deftrap _pbhmapname ((paramblock (:pointer :hparamblockrec)))
  1176.    (:d0 :signed-integer)
  1177.    (:register-trap #xA260 :a0 paramblock :d0 53))
  1178.  
  1179. (deftrap _pbhcopyfile ((paramblock (:pointer :hparamblockrec)))
  1180.    (:d0 :signed-integer)
  1181.    (:register-trap #xA260 :a0 paramblock :d0 54))
  1182.  
  1183. (deftrap _pbhmoverename ((paramblock (:pointer :hparamblockrec)))
  1184.    (:d0 :signed-integer)
  1185.    (:register-trap #xA260 :a0 paramblock :d0 55))
  1186.  
  1187. (deftrap _pbhopendeny ((paramblock (:pointer :hparamblockrec)))
  1188.    (:d0 :signed-integer)
  1189.    (:register-trap #xA260 :a0 paramblock :d0 56))
  1190.  
  1191. (deftrap _pbhopenrfdeny ((paramblock (:pointer :hparamblockrec)))
  1192.    (:d0 :signed-integer)
  1193.    (:register-trap #xA260 :a0 paramblock :d0 57))
  1194.  
  1195. (deftrap _pbexchangefiles ((paramblock (:pointer :hparamblockrec)))
  1196.    (:d0 :signed-integer)
  1197.    (:register-trap #xA260 :a0 paramblock :d0 23))
  1198.  
  1199. (deftrap _pbcreatefileidref ((paramblock (:pointer :hparamblockrec)))
  1200.    (:d0 :signed-integer)
  1201.    (:register-trap #xA260 :a0 paramblock :d0 20))
  1202.  
  1203. (deftrap _pbresolvefileidref ((paramblock (:pointer :hparamblockrec)))
  1204.    (:d0 :signed-integer)
  1205.    (:register-trap #xA260 :a0 paramblock :d0 22))
  1206.  
  1207. (deftrap _pbdeletefileidref ((paramblock (:pointer :hparamblockrec)))
  1208.    (:d0 :signed-integer)
  1209.    (:register-trap #xA260 :a0 paramblock :d0 21))
  1210.  
  1211. (deftrap _pbgetforeignprivs ((paramblock (:pointer :hparamblockrec)))
  1212.    (:d0 :signed-integer)
  1213.    (:register-trap #xA260 :a0 paramblock :d0 96))
  1214.  
  1215. (deftrap _pbsetforeignprivs ((paramblock (:pointer :hparamblockrec)))
  1216.    (:d0 :signed-integer)
  1217.    (:register-trap #xA260 :a0 paramblock :d0 97))
  1218.  
  1219. (deftrap _hgetvolparms ((paramblock (:pointer :hparamblockrec)))
  1220.    (:d0 :signed-integer)
  1221.    (:register-trap #xA260 :a0 paramblock :d0 48))
  1222.  
  1223. (deftrap _hgetlogininfo ((paramblock (:pointer :hparamblockrec)))
  1224.    (:d0 :signed-integer)
  1225.    (:register-trap #xA260 :a0 paramblock :d0 49))
  1226.  
  1227. (deftrap _hgetdiraccess ((paramblock (:pointer :hparamblockrec)))
  1228.    (:d0 :signed-integer)
  1229.    (:register-trap #xA260 :a0 paramblock :d0 50))
  1230.  
  1231. (deftrap _hsetdiraccess ((paramblock (:pointer :hparamblockrec)))
  1232.    (:d0 :signed-integer)
  1233.    (:register-trap #xA260 :a0 paramblock :d0 51))
  1234.  
  1235. (deftrap _hmapid ((paramblock (:pointer :hparamblockrec)))
  1236.    (:d0 :signed-integer)
  1237.    (:register-trap #xA260 :a0 paramblock :d0 52))
  1238.  
  1239. (deftrap _hmapname ((paramblock (:pointer :hparamblockrec)))
  1240.    (:d0 :signed-integer)
  1241.    (:register-trap #xA260 :a0 paramblock :d0 53))
  1242.  
  1243. (deftrap _hcopyfile ((paramblock (:pointer :hparamblockrec)))
  1244.    (:d0 :signed-integer)
  1245.    (:register-trap #xA260 :a0 paramblock :d0 54))
  1246.  
  1247. (deftrap _hmoverename ((paramblock (:pointer :hparamblockrec)))
  1248.    (:d0 :signed-integer)
  1249.    (:register-trap #xA260 :a0 paramblock :d0 55))
  1250.  
  1251. (deftrap _hopendeny ((paramblock (:pointer :hparamblockrec)))
  1252.    (:d0 :signed-integer)
  1253.    (:register-trap #xA260 :a0 paramblock :d0 56))
  1254.  
  1255. (deftrap _hopenrfdeny ((paramblock (:pointer :hparamblockrec)))
  1256.    (:d0 :signed-integer)
  1257.    (:register-trap #xA260 :a0 paramblock :d0 57))
  1258.  
  1259. (deftrap _exchangefiles ((paramblock (:pointer :hparamblockrec)))
  1260.    (:d0 :signed-integer)
  1261.    (:register-trap #xA260 :a0 paramblock :d0 23))
  1262.  
  1263. (deftrap _createfileidref ((paramblock (:pointer :hparamblockrec)))
  1264.    (:d0 :signed-integer)
  1265.    (:register-trap #xA260 :a0 paramblock :d0 20))
  1266.  
  1267. (deftrap _resolvefileidref ((paramblock (:pointer :hparamblockrec)))
  1268.    (:d0 :signed-integer)
  1269.    (:register-trap #xA260 :a0 paramblock :d0 22))
  1270.  
  1271. (deftrap _deletefileidref ((paramblock (:pointer :hparamblockrec)))
  1272.    (:d0 :signed-integer)
  1273.    (:register-trap #xA260 :a0 paramblock :d0 21))
  1274.  
  1275. (deftrap _getforeignprivs ((paramblock (:pointer :hparamblockrec)))
  1276.    (:d0 :signed-integer)
  1277.    (:register-trap #xA260 :a0 paramblock :d0 96))
  1278.  
  1279. (deftrap _setforeignprivs ((paramblock (:pointer :hparamblockrec)))
  1280.    (:d0 :signed-integer)
  1281.    (:register-trap #xA260 :a0 paramblock :d0 97))
  1282.  
  1283. ;   Desktop Manager  
  1284.  
  1285. (deftrap _pbdtgetpath ((paramblock (:pointer :dtpbrec)))
  1286.    (:d0 :signed-integer)
  1287.    (:register-trap #xA260 :a0 paramblock :d0 32))
  1288.  
  1289. (deftrap _pbdtclosedown ((paramblock (:pointer :dtpbrec)))
  1290.    (:d0 :signed-integer)
  1291.    (:register-trap #xA260 :a0 paramblock :d0 33))
  1292.  
  1293. (deftrap _pbdtaddicon ((paramblock (:pointer :dtpbrec)))
  1294.    (:d0 :signed-integer)
  1295.    (:register-trap #xA260 :a0 paramblock :d0 34))
  1296.  
  1297. (deftrap _pbdtgeticon ((paramblock (:pointer :dtpbrec)))
  1298.    (:d0 :signed-integer)
  1299.    (:register-trap #xA260 :a0 paramblock :d0 35))
  1300.  
  1301. (deftrap _pbdtgeticoninfo ((paramblock (:pointer :dtpbrec)))
  1302.    (:d0 :signed-integer)
  1303.    (:register-trap #xA260 :a0 paramblock :d0 36))
  1304.  
  1305. (deftrap _pbdtaddappl ((paramblock (:pointer :dtpbrec)))
  1306.    (:d0 :signed-integer)
  1307.    (:register-trap #xA260 :a0 paramblock :d0 37))
  1308.  
  1309. (deftrap _pbdtremoveappl ((paramblock (:pointer :dtpbrec)))
  1310.    (:d0 :signed-integer)
  1311.    (:register-trap #xA260 :a0 paramblock :d0 38))
  1312.  
  1313. (deftrap _pbdtgetappl ((paramblock (:pointer :dtpbrec)))
  1314.    (:d0 :signed-integer)
  1315.    (:register-trap #xA260 :a0 paramblock :d0 39))
  1316.  
  1317. (deftrap _pbdtsetcomment ((paramblock (:pointer :dtpbrec)))
  1318.    (:d0 :signed-integer)
  1319.    (:register-trap #xA260 :a0 paramblock :d0 40))
  1320.  
  1321. (deftrap _pbdtremovecomment ((paramblock (:pointer :dtpbrec)))
  1322.    (:d0 :signed-integer)
  1323.    (:register-trap #xA260 :a0 paramblock :d0 41))
  1324.  
  1325. (deftrap _pbdtgetcomment ((paramblock (:pointer :dtpbrec)))
  1326.    (:d0 :signed-integer)
  1327.    (:register-trap #xA260 :a0 paramblock :d0 42))
  1328.  
  1329. (deftrap _pbdtflush ((paramblock (:pointer :dtpbrec)))
  1330.    (:d0 :signed-integer)
  1331.    (:register-trap #xA260 :a0 paramblock :d0 43))
  1332.  
  1333. (deftrap _pbdtreset ((paramblock (:pointer :dtpbrec)))
  1334.    (:d0 :signed-integer)
  1335.    (:register-trap #xA260 :a0 paramblock :d0 44))
  1336.  
  1337. (deftrap _pbdtgetinfo ((paramblock (:pointer :dtpbrec)))
  1338.    (:d0 :signed-integer)
  1339.    (:register-trap #xA260 :a0 paramblock :d0 45))
  1340.  
  1341. (deftrap _pbdtopeninform ((paramblock (:pointer :dtpbrec)))
  1342.    (:d0 :signed-integer)
  1343.    (:register-trap #xA060 :a0 paramblock :d0 46))
  1344.  
  1345. (deftrap _pbdtdelete ((paramblock (:pointer :dtpbrec)))
  1346.    (:d0 :signed-integer)
  1347.    (:register-trap #xA060 :a0 paramblock :d0 47))
  1348.  
  1349. (deftrap _pbgetvolmountinfosize ((paramblock (:pointer :paramblockrec)))
  1350.    (:d0 :signed-integer)
  1351.    (:register-trap #xA260 :a0 paramblock :d0 63))
  1352.  
  1353. (deftrap _pbgetvolmountinfo ((paramblock (:pointer :paramblockrec)))
  1354.    (:d0 :signed-integer)
  1355.    (:register-trap #xA260 :a0 paramblock :d0 64))
  1356.  
  1357. (deftrap _pbvolumemount ((paramblock (:pointer :paramblockrec)))
  1358.    (:d0 :signed-integer)
  1359.    (:register-trap #xA260 :a0 paramblock :d0 65))
  1360.  
  1361. (deftrap _dtgetpath ((paramblock (:pointer :dtpbrec)))
  1362.    (:d0 :signed-integer)
  1363.    (:register-trap #xA260 :a0 paramblock :d0 32))
  1364.  
  1365. (deftrap _dtclosedown ((paramblock (:pointer :dtpbrec)))
  1366.    (:d0 :signed-integer)
  1367.    (:register-trap #xA260 :a0 paramblock :d0 33))
  1368.  
  1369. (deftrap _dtaddicon ((paramblock (:pointer :dtpbrec)))
  1370.    (:d0 :signed-integer)
  1371.    (:register-trap #xA260 :a0 paramblock :d0 34))
  1372.  
  1373. (deftrap _dtgeticon ((paramblock (:pointer :dtpbrec)))
  1374.    (:d0 :signed-integer)
  1375.    (:register-trap #xA260 :a0 paramblock :d0 35))
  1376.  
  1377. (deftrap _dtgeticoninfo ((paramblock (:pointer :dtpbrec)))
  1378.    (:d0 :signed-integer)
  1379.    (:register-trap #xA260 :a0 paramblock :d0 36))
  1380.  
  1381. (deftrap _dtaddappl ((paramblock (:pointer :dtpbrec)))
  1382.    (:d0 :signed-integer)
  1383.    (:register-trap #xA260 :a0 paramblock :d0 37))
  1384.  
  1385. (deftrap _dtremoveappl ((paramblock (:pointer :dtpbrec)))
  1386.    (:d0 :signed-integer)
  1387.    (:register-trap #xA260 :a0 paramblock :d0 38))
  1388.  
  1389. (deftrap _dtgetappl ((paramblock (:pointer :dtpbrec)))
  1390.    (:d0 :signed-integer)
  1391.    (:register-trap #xA260 :a0 paramblock :d0 39))
  1392.  
  1393. (deftrap _dtsetcomment ((paramblock (:pointer :dtpbrec)))
  1394.    (:d0 :signed-integer)
  1395.    (:register-trap #xA260 :a0 paramblock :d0 40))
  1396.  
  1397. (deftrap _dtremovecomment ((paramblock (:pointer :dtpbrec)))
  1398.    (:d0 :signed-integer)
  1399.    (:register-trap #xA260 :a0 paramblock :d0 41))
  1400.  
  1401. (deftrap _dtgetcomment ((paramblock (:pointer :dtpbrec)))
  1402.    (:d0 :signed-integer)
  1403.    (:register-trap #xA260 :a0 paramblock :d0 42))
  1404.  
  1405. (deftrap _dtflush ((paramblock (:pointer :dtpbrec)))
  1406.    (:d0 :signed-integer)
  1407.    (:register-trap #xA260 :a0 paramblock :d0 43))
  1408.  
  1409. (deftrap _dtreset ((paramblock (:pointer :dtpbrec)))
  1410.    (:d0 :signed-integer)
  1411.    (:register-trap #xA260 :a0 paramblock :d0 44))
  1412.  
  1413. (deftrap _dtgetinfo ((paramblock (:pointer :dtpbrec)))
  1414.    (:d0 :signed-integer)
  1415.    (:register-trap #xA260 :a0 paramblock :d0 45))
  1416.  
  1417. (deftrap _dtopeninform ((paramblock (:pointer :dtpbrec)))
  1418.    (:d0 :signed-integer)
  1419.    (:register-trap #xA060 :a0 paramblock :d0 46))
  1420.  
  1421. (deftrap _dtdelete ((paramblock (:pointer :dtpbrec)))
  1422.    (:d0 :signed-integer)
  1423.    (:register-trap #xA060 :a0 paramblock :d0 47))
  1424.  
  1425. (deftrap _getvolmountinfosize ((paramblock (:pointer :paramblockrec)))
  1426.    (:d0 :signed-integer)
  1427.    (:register-trap #xA260 :a0 paramblock :d0 63))
  1428.  
  1429. (deftrap _getvolmountinfo ((paramblock (:pointer :paramblockrec)))
  1430.    (:d0 :signed-integer)
  1431.    (:register-trap #xA260 :a0 paramblock :d0 64))
  1432.  
  1433. (deftrap _volumemount ((paramblock (:pointer :paramblockrec)))
  1434.    (:d0 :signed-integer)
  1435.    (:register-trap #xA260 :a0 paramblock :d0 65))
  1436.  
  1437.  
  1438. ;   FSSpec Glue  
  1439.  
  1440. (deftrap _fsmakefsspec ((vrefnum :signed-integer) (dirid :signed-long) (filename (:string 255)) (spec (:pointer :fsspec)))
  1441.    (:stack :signed-integer)
  1442.    (:stack-trap #xAA52 :d0 1 vrefnum dirid filename spec))
  1443.  
  1444. (deftrap _fspopendf ((spec :fsspec) (permission :signed-byte) (refnum (:pointer :signed-integer)))
  1445.    (:stack :signed-integer)
  1446.    (:stack-trap #xAA52 :d0 2 spec permission refnum))
  1447.  
  1448. (deftrap _fspopenrf ((spec :fsspec) (permission :signed-byte) (refnum (:pointer :signed-integer)))
  1449.    (:stack :signed-integer)
  1450.    (:stack-trap #xAA52 :d0 3 spec permission refnum))
  1451.  
  1452. (deftrap _fspcreate ((spec :fsspec) (creator :ostype) (filetype :ostype) (scripttag :signed-integer))
  1453.    (:stack :signed-integer)
  1454.    (:stack-trap #xAA52 :d0 4 spec creator filetype scripttag))
  1455.  
  1456. (deftrap _fspdircreate ((spec :fsspec) (scripttag :signed-integer) (createddirid (:pointer :signed-long)))
  1457.    (:stack :signed-integer)
  1458.    (:stack-trap #xAA52 :d0 5 spec scripttag createddirid))
  1459.  
  1460. (deftrap _fspdelete ((spec :fsspec))
  1461.    (:stack :signed-integer)
  1462.    (:stack-trap #xAA52 :d0 6 spec))
  1463.  
  1464. (deftrap _fspgetfinfo ((spec :fsspec) (fndrinfo (:pointer :finfo)))
  1465.    (:stack :signed-integer)
  1466.    (:stack-trap #xAA52 :d0 7 spec fndrinfo))
  1467.  
  1468. (deftrap _fspsetfinfo ((spec :fsspec) (fndrinfo :finfo))
  1469.    (:stack :signed-integer)
  1470.    (:stack-trap #xAA52 :d0 8 spec fndrinfo))
  1471.  
  1472. (deftrap _fspsetflock ((spec :fsspec))
  1473.    (:stack :signed-integer)
  1474.    (:stack-trap #xAA52 :d0 9 spec))
  1475.  
  1476. (deftrap _fsprstflock ((spec :fsspec))
  1477.    (:stack :signed-integer)
  1478.    (:stack-trap #xAA52 :d0 10 spec))
  1479.  
  1480. (deftrap _fsprename ((spec :fsspec) (newname (:string 255)))
  1481.    (:stack :signed-integer)
  1482.    (:stack-trap #xAA52 :d0 11 spec newname))
  1483.  
  1484. (deftrap _fspcatmove ((source :fsspec) (dest :fsspec))
  1485.    (:stack :signed-integer)
  1486.    (:stack-trap #xAA52 :d0 12 source dest))
  1487.  
  1488. (deftrap _fspexchangefiles ((source :fsspec) (dest :fsspec))
  1489.    (:stack :signed-integer)
  1490.    (:stack-trap #xAA52 :d0 15 source dest))
  1491.  
  1492. ; $ENDC                         ;  UsingFiles 
  1493.  
  1494. ; $IFC NOT UsingIncludes
  1495.  
  1496. ; $ENDC
  1497.  
  1498.  
  1499. (export '($applesharemediatype $dirinfo $hfileinfo $ktwowayencryptpassword
  1500.           $kencryptpassword $kpassword $knouserauthentication $finalstage
  1501.           $betastage $alphastage $developstage $fsunixpriv $ksmall8biticonsize
  1502.           $ksmall4biticonsize $ksmalliconsize $klarge8biticonsize
  1503.           $klarge4biticonsize $klargeiconsize $ksmall8biticon $ksmall4biticon
  1504.           $ksmallicon $klarge8biticon $klarge4biticon $klargeicon
  1505.           $bhasblankaccessprivileges $bhasbtreemgr $bhasfileids $bhascatsearch
  1506.           $bhasusergrouplist $bhaspersonalaccessprivileges $bhasfolderlock
  1507.           $bhasshortname $bhasdesktopmgr $bhasmoverename $bhascopyfile
  1508.           $bhasopendeny $bhasextfsvol $bnosysdir $baccesscntl $bnobootblks
  1509.           $bnodeskitems $bnoswitchto $btrshoffline $bnolclsync $bnovnedit
  1510.           $bnominifndr $blocalwlist $blimitfcbs $fssbdrparid $fssbdrfndrinfo
  1511.           $fssbdrbkdat $fssbdrmddat $fssbdrcrdat $fssbdrnmfls $fssbdrusrwds
  1512.           $fssbnegate $fssbflparid $fssbflxfndrinfo $fssbflbkdat $fssbflmddat
  1513.           $fssbflcrdat $fssbflrpylen $fssbflrlglen $fssbflpylen $fssbfllglen
  1514.           $fssbflfndrinfo $fssbflattrib $fssbfullname $fssbpartialname
  1515.           $fsrtdirid $fsrtparid $iodirmask $iodirflg $rdverify $fsfrommark
  1516.           $fsfromleof $fsfromstart $fsrdwrshperm $fdisk $fsrdwrperm $fdesktop
  1517.           $fswrperm $ftrash $finvisible $fsrdperm $fhasbundle $fscurperm
  1518.           $fondesk $fsatmark))
  1519. (provide-interface 'FILES)